home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / countwords.bed < prev    next >
Text File  |  1997-12-03  |  406b  |  32 lines
  1. /*
  2. ** $VER: CountWords.bed 1.0 (02.01.96)
  3. **
  4. ** Count the number of words in the document
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. SetDisplayLock ON
  12. SetInputLock ON
  13.  
  14. SetBookmark 0
  15. SetStatusBar "Counting..."
  16.  
  17. count = 0
  18. MoveSOF
  19.  
  20. DO UNTIL RC ~= 0
  21.     MoveNextWord
  22.     count = count + 1
  23. END
  24.  
  25. MoveBookmark 0
  26. ClearBookmark 0
  27.  
  28. SetDisplayLock OFF
  29. SetInputLock OFF
  30.  
  31. SetStatusBar "Counted " || count || " words"
  32.